home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 155
/
155.d81
/
3d show
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
149 lines
10 rem %% 3-d art show %%
20 rem %% ken robinson '97 %%
30 rem
40 poke55,0:poke56,48:clr
50 dv=peek(186):ifdv<8thendv=8
60 sys57812"3d.o",dv,0:poke780,0:poke781,0:poke782,201:sys65493
70 v=53248:pokev+21,0:pokev+23,0
80 forx=0to3:pokev+39+x,15:poke2040+x,14:pokev+27+x,0:next
90 dimfl$(3):forx=0to3:readf$:fl$(x)=f$:next
100 data commodore3d.shp,pyramid3d.shp,loadshell 3d.shp,kite3d.shp
140 sp=896:forx=0to62:pokesp+x,0:next
145 forx=0to23:read y:pokesp+x,y:next
150 data 255,0,0,255,0,0,195,0
151 data 0,195,0,0,195,0,0,195
152 data 0,0,255,0,0,255,0,0
160 gosub1000:gosub1280
200 sys49201
205 sys49152:poke53265,11
210 gosub2000
220 sys49185
227 poke198,0
230 geta$:ifa$<"1"ora$>"6"then230
235 a=val(a$)
238 print"[147][144]":sys49201
240 on a goto300,244,244,244,244,40000
242 goto230
244 f1$=fl$(a-2):iff1$=f2$then265
245 open15,dv,15:close15:if st =0then250
247 f$="drive off-line!":t=20-(len(f$)/2)
248 poke214,14:print:poke211,t:printf$;
249 poke198,0:wait198,1:goto200
250 f$="loading...."+left$(f1$,len(f1$)-6):t=20-(len(f$)/2)
252 poke214,14:print:poke211,t
255 printf$;
260 sys57812f1$,dv,0:poke780,0:poke781,0:poke782,48:sys65493:f2$=f1$
265 print"[147]":pokev+32,0:pokev+33,0
266 poke251,48:poke252,96:poke253,92:sys51456
268 sys51459
270 poke198,0
272 geta$:ifa$=""then272
274 sys51459:goto200
300 poke53280,0:poke53281,0:printchr$(14)"[147]";
303 print"[160][160][160][160][160][160][160][160][160][160][154][200][207][215][160][212][207][160][214][201][197][215] [208][201][195][212][213][210][197][211]"
304 print" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
306 print" [154][212]hese 3-[196] or '[205]agic [197]ye' pictures are ";
308 print" [154]viewed by staring at the two light"
309 print" gray squares at the top of a picture"
310 print" (like the ones above this screen) and"
311 print" letting your eyes relax and focus"
312 print" beyond the screen. Eventually they"
313 print" will appear to split apart into four"
314 print" squares. When the two inner squares"
315 print" join together, hold for three seconds.";
316 print" [208]ress [211][208][193][195][197][194][193][210] for demonstration [146]";
320 forx=0to3:pokev+1+2*x,50:next
322 pokev,160:pokev+2,160:pokev+4,208:pokev+6,208
324 pokev+21,15
330 poke198,0
332 geta$:ifa$<>" "then332
340 forx=1to30
342 pokev,peek(v)+1
344 pokev+2,peek(v+2)-1
346 pokev+4,peek(v+4)+1
348 pokev+6,peek(v+6)-1
350 poke162,0
351 ifpeek(162)<2goto351
352 next
354 forx=1to6
356 pokev,peek(v)-1
358 pokev+2,peek(v+2)+1
360 pokev+4,peek(v+4)-1
362 pokev+6,peek(v+6)+1
363 poke162,0
364 ifpeek(162)<2goto364
365 next
366 poke162,0
368 ifpeek(162)<90then368
400 poke53280,0:poke53281,0:printchr$(14)"[147]";
401 print"[146][154][160][160][160][160][160][160][160][160][160][160]HOW[160]TO[160]VIEW PICTURES"
402 print" {$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}"
403 print
404 print" [154]After the picture appears to clear"
405 print
406 print" [154]up, lower your eyes and you should"
407 print" see the three-dimensional effect."
408 print" Another method is to hold your head"
409 print" close to the screen and slowly move"
410 print
411 print" back without moving your eyes."
412 print" Ken Robinson"
413 print" {$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}"
414 print" [208]ress [211][208][193][195][197] for menu [146]";
415 poke198,0
416 geta$:ifa$<>" "then416
418 pokev+21,0:goto200
1000 rem
1010 foru=49152to49272:readq:pokeu,q:ck=ck+q:next
1020 ifck<>14738thenprint"error in data":end
1035 return
1040 data120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27
1050 data141,17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208
1060 data201,38,208,249,173,17,208,73,16,141,17,208,96,120,169,49,141,20
1070 data3,169,234,141,21,3,169,240,141,26,208,169,129,141,13,220,173,120
1080 data195,141,32,208,141,33,208,88,96,169,1,141,25,208,174,18,208,224
1090 data0,240,20,189,80,195,141,33,208,141,32,208,232,232,142,18,208,104
1100 data168,104,170,104,64,169,40,141,18,208,76,49,234
1280 rem
1290 fort=50000to50000+254step2:poket,0:next
1300 fort=50000+40to50000+40+214step2
1310 ford=0to4:poket,12:t=t+2:next
1320 poket,0:t=t+2
1330 poket,11:t=t+2
1340 poket,15
1350 next
1360 return
2000 poke53280,11:poke53281,15:printchr$(142)"[147]";
2001 print"[146] {$7f}[146] {$7f}"
2002 print" [144] [144]{$7f}[146] [144] [144]{$7f}"
2003 print" [144] [146] [144] [146] [144] "
2004 print" [144] [146] [144] [146] [144] "
2005 print" [144] [146] [146] [144] [146] [144] "
2006 print" [144] [146] [146] [144] [146] [144] "
2007 print" [144] [146] [144] [146] [144] "
2008 print" [144] [146] [144] [146] [144] "
2009 print" [146][169][144] [146] [146][169][144] "
2010 print" ken [146][169] [146][169] j & f"
2011 print" robinson publish."
2012 print" 3 - d a r t s h o w"
2013 print" 1. instructions 4. loadshell
2014 [153]" 2. commodore 5. kite"
2015 [153]" 3. pyramid 6. quit/loadstar"
2016 [142]
10000 dv[178][194](186):[139]dv[179]8[167]dv[178]8
10010 n$[178]"3d show":[159]15,dv,15,"s0:"[170]n$[170]".bu":[152]15,"r0:"[170]n$[170]".bu="[170]n$:[160]15
10020 [148] n$,dv:[128]
40000 [143] %% quit %%
40001 [151]53280,0:[151]53281,0:[153]"load"
40002 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[151]186,8:[151]56,160:[156]:[151]53280,14:[151]53281,6
40065 [153]"contloadhappy computing!":[128]
40070 q$[178][199](34):[151]53272,23
40080 [153]"loadstopp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]